home *** CD-ROM | disk | FTP | other *** search
/ Shocking The Web CD-ROM / SHOCK_CD.ISO / pc / tutorial / devglry / zoetek / source / shckclck.dir / 00122_12-24hr. switch for alarm.ls < prev    next >
Encoding:
Text File  |  1996-04-11  |  145 b   |  10 lines
  1. global shockTime, samemode
  2.  
  3. on mouseUp
  4.   set samemode to not samemode
  5.   getTheTime()
  6.   set shockTime to the result
  7.   alarm()
  8.   updateStage()
  9. end
  10.